From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 2 Feb 1997 01:53:27 +0000 (+0000)
Subject: (set-frame-font): Renamed from set-default-font,
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~82109
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=889611f0962bca3dca5039d98a6ac05eeb51c06b;p=emacs.git

(set-frame-font): Renamed from set-default-font,
---

diff --git a/lisp/frame.el b/lisp/frame.el
index c97a6d3ab7f..80c903b5795 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -583,7 +583,8 @@ If FRAME is omitted, describe the currently selected frame."
 If FRAME is omitted, describe the currently selected frame."
   (cdr (assq 'width (frame-parameters frame))))
 
-(defun set-default-font (font-name)
+(defalias 'set-default-font 'set-frame-font)
+(defun set-frame-font (font-name)
   "Set the font of the selected frame to FONT.
 When called interactively, prompt for the name of the font to use.
 To get the frame's current default font, use `frame-parameters'."